25 REM             RECIPESAVER II
30 OPEN15,8,15
40 PRINT"[147][154]"
50 BL$="                                  "
52 C(1)=1:C(2)=13:C(3)=14
55 M$(1)="RECIPESAVER"
56 M$(3)=" (C)  1988 "
58 M$(2)=" JUNE 25TH "
60 POKE53280,0:POKE53281,0
70 DIMG$(100),AM$(100),W$(50)
75 XX=1:   :Y1=5:Y=1
77 FORE=1TO3
80 FORX=1TO11
85 X1=X*3+2
87 POKE646,6
90 GOSUB2700:PRINTTAB(X1+1);
95 POKE646,C(E)
100 PRINTMID$(M$(E),X,1)"";
110 NEXT
115 Y1=Y1+4
120 NEXT
130 Y=1: XX=15:Y1=Y1+4:X1=13:GOSUB2700
140 PRINTTAB(15)"LAMBERT KLEIN"
150 FORT=1TO2000:NEXT:PRINT"[147]
160 [153]"CONT";:[151] 9906[170]1,40
170 [153][163]11)"ABSSPC(              WAITSPC(FN"
180 [153][163]11)"ABSSPC( RECIPE SAVER WAITSPC(FN"
190 [153][163]11)"ABSSPC(              WAITSPC(FN"
200 [153]"CONT";
210 [129]X[178]1[164]40:[153]"TO";:[130]:
220 [153]" WAIT"[166]10)"GETSPC(     MENU     WAITSPC(GETCONT"[166]10); " WAIT";
240 [153]"CONT";: [129]X[178]1[164]40:[153]"TAB(";:[130]:
250 [153][166]12[170]OV)"CONT";
260 [129]X[178]1[164]16:[153]"TO";:[130]:[153]:[153][166]12[170]OV)"FN              ABS"
270 [153][166]12[170]OV)"FN    EWAITNTERCONT     ABS":[153][166]12[170]OV)"FN    SYSVWAITIEWCONT      ABS"
280 [153][166]12[170]OV)"FN    PWAITRINTCONT     ABS"
290 [153][166]12[170]OV)"FN    OPENLWAITOADCONT      ABS":[153][166]12[170]OV)"FN    SWAITAVECONT      ABS":
300 [153][166]12[170]OV)"FN    RWAITECIPES   CONTABS"
310 [153][166]12[170]OV)"FN    PRINT^WAITEDIT CONT    ABS":[153][166]12[170]OV)"FN    QWAITUIT      ABS":
320 [153][166]12[170]OV);
330 [153]"FN              ABS" :[153][166]12[170]OV);:[129]X[178]1[164]16:[153]"TAB(";:[130]
340 OV[178]0
350 R[178][195](RN$)
360 [139] [200](RN$,2)[178]".R"[167]RN$[178][201](RN$,R[171]2):R[178][195](RN$)
370 [139] [200](RN$,4)[178]"@:.R"[167]RN$[178][201](RN$,R[171]4):R[178][195](RN$)
380 [139]LI[178]0[167]LI[178]FL[170]7
390 [161]A$:[139]A$[178]""[167]390
400 [139]A$[178]"E"[167]490:
410 [139]A$[178]"V"[167]940
420 [139]A$[178]"P"[167]1370
430 [139]A$[178]"L"[167]1570
440 [139]A$[178]"S"[167]1750
450 [139]A$[178]"R"[167]2020
460 [139]A$[178]"^"[167]2310
470 [139]A$[178]"Q"[167][153]"LOAD":[160]15: [144]
480 [137]390
490 [153]"LOAD":XX[178]32:RN$[178]"":Y[178]7:X1[178]3:Y1[178]4
495 [151]10151[170]1,35:[151]646,6
500 [141]2700
505 [151]10151[170]1,32
520 :LI[178]0
525 XX[178]28:Y[178]3:X1[178]5:Y1[178]6:[141]2700
530 [153][163]X1[170]2);
540 [153]"RECIPE NAME: CONT":[153][163]X1[170]1);
580 [141]2740:RN$[178]A$
590 [139]RN$[178]""[167]160:
600 RR$[178]RN$
605 [129]CD[178]0[164]AR[170]3 :W$(CD)[178]"_":[130]   :AR[178]0
610 XX[178]37:Y[178]20:X1[178]0:Y1[178]1 :[141]2700
620 [153]"DEF"[163]X1[170]1)"LIST INGREDIENTS  'E' TO END CONT":X[178]1
630 [153]:[153]
640 [153][163]X1[170]2);
650 [153]"INGREDIENTWAIT OPEN";:[141]2740:G$(X)[178]A$:A$[178]"":[139]G$(X)[178]"E"[167]740
670 [153][163]X1[170]2);
680 [153]"LISTAMOUNTWAIT     CONT";:[141]2740:AM$(X)[178]A$:A$[178]"":
690 L1[178][195](G$(X)): [139]L1[177]LI[167]LI[178]L1:FL[178]LI
700 X[178]X[170]1:
710 [139]X[179][177]9[167]640
720 [153]"LOAD":  XX[178]37:Y[178]20:X1[178]0:Y1[178]1 :[141]2700
730 [137]640
740 [139]X[178]1[167]N[178]0:[137] 160
750 XX[178]26:Y[178]14:X1[178]7:Y1[178]3:[141]2700
760 [153]""[163]X1[170]2)" MIXING INGREDIENTS...SYS"
770 N[178]X[171]1          :[129]X[178]1[164]N:
780 [139][195](G$(X)) [179]LI  [167]G$(X)[178][199](160)[170]G$(X) :[137]780:
790 [130]:      [129]X[178]1[164]N::G$(X)[178]G$(X)[170]" "[170]AM$(X):
800 L1[178][195](G$(X)): [139]L1[177]LI[167]LI[178]L1
810 [130]
830 [141]2110:
890 [141]2700:[153]:[153][163]X1[170]1);
900 :[141]2610:  [153]"SYSSAVE (CONTY/NSYS) CONT";:
910 [161]A$:[139]A$[178]""[167]910
920 [139]A$[178]"Y"[167]1750
930 [153]"LOAD":[137]250
940 [153]"LOAD":            :N2[178]0:SC[178]0
950 [139]N[179][177]0[167]980
960 X1[178]9 :Y1[178]15:XX[178]17:Y[178]3 :[141]2700
970 [153]""[163]X1[170]1)"NOTHING TO VIEW :":[151] 9906[170]1,15: [141]2610:[137]160
980 XX[178]36:Y[178]21:X1[178]0:Y1[178]0 :[141]2700
990 FR$[178]""
1000 [129]RR[178]1[164][195](RR$)[170]6:FR$[178]FR$[170]"TO":[130]
1010 FS[178](19[171]([195](FR$)[173]2)):[139] FS[179]1[167]FS[178]1
1020 [153]"LIST"[166]FS);FR$:
1030 [153][166]FS)"INT  SYS"RR$"LIST  ABS"
1040 [153]""; [166]FS)FR$:[153]"CONT
1050 :FORX=1TON:PRINTTAB(3)SPC(SC)G$(X):N2=N2+1:IFN2=12THENGOSUB1320:
1060 NEXT
1070 W=37
1080 YM=AR*2+1
1090 X1=1:Y1=16:XX=34:Y=5:GOSUB2700
1100 PRINTTAB(X1+1)"TEMPERTURE[146][154] "TP$:PRINTTAB(X1+1)"[153]TIME[146]     [154]  ";TM$:
1110 PRINT" PRESS A KEY: [146]"
1120 GETA$:IFA$=""THEN1120
1125 YM=AR*2+1
1130 Y=YM:X1=0:Y1=22-Y:XX=37::GOSUB2700
1140 PRINT""TAB(X1+1);
1150 W=XX-2
1160 FORCD=0TOAR
1164 IFLEN(W$)+LEN(W$(CD))<255THENW$=W$+W$(CD):GOTO1168
1166 PRINTTAB(X1+1);:GOSUB2911:NEXT:GOTO1170
1168 NEXT:GOSUB2911
1170 REM
1280 PRINT:PRINTTAB(X1+2)" PRESS A KEY  RETURN  TO RE-VIEW "
1290 GETA$:IFA$=""THEN1290
1300 IFA$=CHR$(13)THEN940
1310 PRINT"[147]":GOTO160
1320 IFLI<17THEN1360
1330 PRINTTAB(3)"[158] PRESS A KEY TO CONTINUE: "
1340 GETA$:IFA$=""THEN1340
1350 SYS 9988:PRINT"":RETURN
1360 SC=20:PRINT"":RETURN
1370 IFN<>0THEN1420
1380 PRINT"[147]
1390 X1[178]8:Y1[178]15:XX[178]18:Y[178]3:[141]2700:[153]""[163]X1[170]1)"NOTHING TO PRINT: "
1400 [151] 9906[170]1,15:[141]2610:
1410 [137]160
1420 [159]4,4:[152]4:[152]4,RR$:[152]4:X[178]1
1422 NZ[178]N: [139]N[173]2[179][177][181](N[173]2)[167]NZ[178]NZ[171]1
1425 W[178]80
1426 LG[178](3[170]LI)
1428 [139]LG[178][177]40[167]1500
1429 TB[178][181]((40[171]LG)[173]2):[139]TB[179]1[167]TB[178]1
1435 [129]X[178]1[164]NZ [169]2
1475 :SP[178]40[171][195](G$(X))[171]TB:[139]SP[179]0[167]SP[178]0
1480 [152]4,[166]TB);G$(X);[166]SP);G$(X[170]1)
1485 [130]:[139]N[179][177]NZ [175]N[179][177]1 [167][152]4,[166]TB);G$(N)
1486 [137]1510
1500 TB[178](80[171]LG)[173]2:TB[178][181](TB):[139]TB[179]1[167]TB[178]0
1502 [129]X[178]1[164]N
1504 [152]4,[166]TB);G$(X)
1509 [130]
1510 :[152]4:[152]4
1520 [152]4,"TEMPERTURE "TP$:[152]4,"TIME       "TM$:[152]4
1530 [152]4,"COMMENTS:"
1534 [129]CD[178]0[164]AR
1536 [139][195](W$)[170][195](W$(CD))[179]255[167]W$[178]W$[170]W$(CD):[137]1538
1537 [141]1539:[130]:[137]1548
1538 [130]:[141]1541 :[137]1548
1539 [139][195](W$)[177]W[167]1541
1540 [152]4,W$:W$[178]"": [142]
1541 P[178]0 :[129]I[178]W[164]1[169][171]1
1542 [139]P[178]0[175][202](W$,I,1)[178]" "[167]P[178]I
1543 [139]P[178]0[175][202](W$,I,1)[178][199](160)[167]P[178]I
1544 [130]:H$[178][201](W$,[195](W$)[171]P)
1545 W$[178][200](W$,P):[152]4,W$:
1546 W$[178]H$:[141]1539
1547 W$[178]"":   [142]
1548 [160]4
1550 :[141]2610
1560 [153]"LOAD":[137]160
1570 X1[178]15:Y1[178]13:XX[178]22:Y[178]6:[151]10151[170]1,166:[141]2700:[153][163]X1[170]1);
1575 [151]10151[170]1,32
1590 X1[178]16:Y1[178]15:XX[178]20:Y[178]2:[141]2700:[153][163]X1[170]1);
1600 [153]"RECIPE NAMEWAITCONT":[153][163]X1[170]1):[141]2740:RN$[178]A$:RN$[178]"R."[170]RN$
1610 [139]RN$[178]"R."[167]RN$[178]"":[153]"LOAD":[137]  250
1620 [159]2,8,2,RN$[170]",S,R":C[178]0
1630 [141]2250
1640 [139]C[178]1[167][160]2:   :[137]250
1650 X[178]1
1660 [132]2,FL:[132]2,LI:[132]2,AR
1670 [132]2,RR$
1680 [132]2,G$(X):
1690 [139]ST [175] 64 [167] 1710
1700 X[178]X[170]1:[137]1680
1710 N[178]X[171](AR[170]3):  [160]2:[153]" DONE CONT"   :[141]2610
1720 [139]N[179]0[167]  250
1730 TP$[178]G$(N[170]1):TM$[178]G$(N[170]2):
1735 [129]CD[178]0[164]AR:W$(CD)[178]G$(N[170]3[170]CD):[130]
1740 [137]250
1750 :[153]"LOAD";
1760 [139]N[179][177]0[167]1800
1770 [153]"LOAD
1780 X1=9 :Y1=15:XX=17:Y=3 :GOSUB2700:PRINT""TAB(X1+1);
1790 :PRINT"NOTHING TO SAVE :":POKE 9906+1,10  :GOSUB2610:GOTO160
1800 IFRN$=""THENRN$=RR$
1810 IFLEFT$(RN$,2)="R."THENRN$=RIGHT$(RN$,LEN(RN$)-2)
1820 IFLEFT$(RN$,4)="@:R."THENRN$=RIGHT$(RN$,LEN(RN$)-4)
1830 :R=LEN(RN$)
1840 PRINT"    "RN$;:FORRV=1TOR+2  :PRINT"[157]";:NEXT:INPUTRN$
1850 RN$="R."+RN$:RN$=LEFT$(RN$,16)
1860 OPEN3,8,3,RN$+",S,W"
1870 Z=0:C=0
1880 GOSUB2250
1890 IFZ=1THENCLOSE3:GOTO2630
1900 IFC=1THENCLOSE3:GOTO   250
1910 PRINT#3,FL:PRINT#3,LI:   PRINT#3,AR
1920 PRINT#3,RR$
1930 FORX=1TON
1940 PRINT#3,G$(X)
1950 NEXT
1960 IFRR$=""THENRR$ =RIGHT$(RN$,LEN(RN$)-2)
1970 PRINT#3,TP$:PRINT#3,TM$:
1980 FORCD=0TOAR:
1982 IFW$(CD)=""THENW$(CD)="_"
1985 PRINT#3,W$(CD):NEXT
1990 CLOSE3:PRINT"[147]"
2000 GOSUB2610
2010 GOTO160
2020 PRINT"[147]"
2030 SYS 9747
2040 GOSUB2250:        IFC=1THENC=0:GOTO250
2050 PRINT:PRINT"[145]                           "
2060 OV=7
2070 REM
2080 GOSUB2250
2090 PRINT""
2100 GOTO250
2110 PRINT:PRINTTAB(X1+1)"TEMPERTURE[154]";:GOSUB2740:TP$=A$:IFTP$=""THENTP$="[164][164][164][164]"
2120 PRINT: PRINTTAB(X1+1)"[159]TIME[154]";:GOSUB2740:TM$=A$:IFTM$=""THENTM$="[164][164][164][164]"
2130 X1=0:Y1=0:XX=36:Y=17:GOSUB2700
2140 PRINTTAB(X+1);" COMMENTS: "
2145 PRINTTAB(X1+1)"  [158]\  TO END."
2150 W=80 :CD=0
2155 PRINTTAB(X1+1);
2160 GOSUB2740:W$=A$
2165 IFQ$=CHR$(13)THENW$=W$+CHR$(160)
2170 GOSUB2901
2180 IFW$(CD)=""THEN W$(CD)="_"
2185 IFQ$="\"THENRETURN
2187 AR=CD
2190 GOTO2160
2200 RETURN
2250 INPUT#15,DS,DS$,A,B:
2260 IFDS=<1THEN2300:
2265 GOSUB2610
2266 X1=5:XX=LEN(DS$)+2:Y1=11:Y=3:POKE646,7:GOSUB2700
2267 PRINTTAB(X1+1);
2270 PRINT"[150]";DS$"[154]" :C=1:POKE 9906+1,15:GOSUB2610
2280 IFDS=63THENZ=1 :RETURN
2290 Z=0:RETURN
2300 C=0:RETURN
2310 IFN<>0THEN2360
2320 PRINT"[147]
2330 X1[178]8 :Y1[178]15:XX[178]18:Y[178]3 :[153]"":[141]2700:[153]"CONT";
2340 [153]""[163]X1[170]1)"NOTHING TO EDIT:":[151] 9906[170]1,12:[141]2610:
2350 [137]160
2360 [153]"LOAD":[139]FL[178]0[167]FL[178]LI[171]7
2370 [153]"PRINT EDIT: "
2380 [153]"FREFREFREFREFREFREFRECONT"
2390 [143]
2400 [129]X[178]1[164]N
2410 [153]"LOADCONT  "G$(X)
2420 [133]"";G$(X)
2430 [130]
2440 [153]"PRINT ADD MORE INGREDIENTS?: Y/N "
2450 [161]A$:[139]A$[178]""[167]2450
2460 [139]A$[179][177]"Y"[167]2540:
2470 [153]"DEF 'E' TO END" :X[178]N
2480 C$[178]"":X[178]X[170]1:N[178]N[170]1  :[133]"OPENINGREDIENT";G$:[139]G$[178]"E"[167]N[178]N[171]1:[137]     2540
2490 [133]"AMOUNT";AM$
2500 L1[178][195](G$):[139]L1[177]FL[167]FL[178]L1
2510 [129]C[178]1[164] FL[171][195](G$)   :C$[178]C$[170][199](160):[130]    :G$(X)[178]C$[170]G$[170]" "[170]AM$:
2520 L1[178][195](G$):[139]L1[177]LI[167]LI[178]L1
2530 [137]2480
2540 :  [153]"LOADTEMP  ":[153]"PRINT  ";TP$:[133]"";TP$
2550 [153]"LOADTIME  ":[153]"  "TM$:[133]"";TM$
2560 [153]"LOADCOMENTS:":[153]"  "
2570 [129]CD[178]0[164]AR
2575 [151]19,65
2580 [153]"LOAD": [153]W$(CD) :[133]"CONT";W$(CD)
2590 [130]
2595 [151]19,0
2600 [153]"LOAD": [137]160
2610 [158] 9883
2620 [142]
2630 X1[178]11:Y1[178]17:XX[178]16:Y[178]3:[141]2700:[153]:[153][163]X1[170]2);
2640 [153]" REPLACE? WAIT Y/N"
2650 :[161]A$:[139]A$[178]""[167]2650
2660 [139]A$[179][177]"Y" [167] [153]"LOAD":[137] 160
2670 [141]2700:[153]:[153][163]X1[170]1)" SAVING... "
2680 [139][200](RN$,1)[179][177]"@"[167] RN$[178]"@:"[170]RN$:
2690 [137]1860
2700 [143] WINDOW
2705 [139]Y1[179]0[167]Y1[178]0
2706 [139]Y [179]0[167]Y [178]0
2710 [151]10190,X1:[151]10192,XX:[151]10191,Y1:[151]10193,Y
2720 [158] 9988
2730 [142]
2740 [151]198,0:A$[178]"":L[178]0:L2[178]0
2745 [158]10194
2750 [161]Q$:[139]Q$[178]""[167]2745
2760 [139]Q$[178]"\"[167][142]
2780 [139]Q$[178][199](13)[167][153]:[153][163]X1[170]1);:L2[178]0   :[142]
2790 Q[178][198](Q$[170][199](0))
2800 [139]L[178]0[167][139]Q[178]20[167]2750
2805 [139]L2[177](XX[171]2) [167][153]:[153][163]X1[170]1);:L2[178]0
2810 [139]L[178][177]80 [167] [142]
2820 [139]Q [178]20 [167]A$[178][200](A$,L[171]1):[153]" CMDCMD";:[158]10194:L[178]L[171]1:L2[178]L2[171]1
2830 [139]Q [179]32[167]2750
2840 [139]Q [177]95[167]2750
2850 [139]Q$[178]","[167]Q$[178]"'"
2860 [139]Q$[178]":"[167]Q$[178]"(null)":
2870 A$[178]A$[170]Q$:L[178][195](A$):L2[178]L2[170]1
2880 [153]Q$;:[158]10194
2890 [137]2750
2900 [142]
2901 [139][195](W$)[177]W[167]2903
2902 W$(CD)[178]W$:CD[178]CD[170]1:[142]
2903 P[178]0 :[129]I[178]W[164]1[169][171]1
2904 [139]P[178]0[175][202](W$,I,1)[178]" "[167]P[178]I
2905 [130]:H$[178][201](W$,[195](W$)[171]P)
2906 W$[178][200](W$,P)         :[141]2902
2907 W$[178]H$:[141] 2901:[142]
2911 [139][195](W$)[177]W[167]2913
2912 [153]W$:[153][163]X1[170]1);:W$[178]"": [142]
2913 P[178]0 :[129]I[178]W[164]1[169][171]1
2914 [139]P[178]0[175][202](W$,I,1)[178]" "[167]P[178]I
2915 [139]P[178]0[175][202](W$,I,1)[178][199](160)[167]P[178]I
2916 [130]:H$[178][201](W$,[195](W$)[171]P)
2917 W$[178][200](W$,P):[153]W$:[153][163]X1[170]1);:
2918 W$[178]H$:[141]2911
2919 W$[178]"":   [142]